home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 September / Ahoy_Magazine_85-09_1985_Double_L.d64 / dragon type2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  69 lines
  1. 10 rem program 2
  2. 20 print" run"
  3. 30 n=99:dimw$(n):sc=53280
  4. 100 forj=832to1022:readb:pokej,b:next
  5. 130 poke2040,13:poke2041,14:poke2042,15
  6. 150 poke792,193:sys49659
  7. 155 fori=0ton:readw$(i):next
  8. 160 print"[144]"tab(10)"choose typing speed"
  9. 170 printtab(15)"1. fast":printtab(15)"2. medium":printtab(15)"3. slow"
  10. 190 geta$:ifa$=""then190
  11. 200 a=val(a$):ifa<1ora>3then190
  12. 210 poke49943,a:poke49944,a*30
  13. 500 print"[147]":pokesc,5:pokesc+1,15
  14. 510 forj=1to9:a$="    ":fori=0to6:r=int(rnd(0)*n)
  15. 520 a$=a$+" "+w$(r):next
  16. 530 printleft$(a$,35):print:next:poke198,0:t0=ti:sys49152
  17. 540 t=(ti-t0)/3600:e=peek(49945):pokesc,5:pokesc+1,13:s=int(47/t+.5)
  18. 545 ifpeek(49946)thens=0:e=0
  19. 550 sr=s*90-20*e:ifsr>hsthenhs=sr
  20. 560 s$=right$(str$(s),2):e$=right$(str$(e),2)
  21. 565 sr$=right$(str$(sr),4):hs$=right$(str$(hs),4)
  22. 570 print"[147]"tab(11)"speed .........."s$
  23. 580 printtab(11)"errors.........."e$
  24. 590 printtab(11)"score........."sr$
  25. 600 printtab(11)"high score...."hs$
  26. 610 printtab(8)"[175][175][175][175][175][175][175][175][175]"spc(7)"[175][175][175][175][175][175][175][175]"
  27. 620 printtab(8)"  space  "spc(7)" return "
  28. 630 printtab(8)"[144]continue"spc(10)"end"
  29. 700 poke198,0
  30. 710 geta$:ifa$=""then710
  31. 720 ifa$<>chr$(13)anda$<>chr$(32)then710
  32. 725 poke53269,0
  33. 730 ifa$=chr$(32)then500
  34. 740 poke792,71:end
  35. 1000 data0,127,128,1,249,192,3,248
  36. 1001 data224,3,255,231,3,255,253,35
  37. 1002 data255,255,33,255,192,64,243,254
  38. 1003 data64,112,0,32,120,0,33,252
  39. 1004 data0,71,252,0,79,254,0,111
  40. 1005 data246,0,111,243,128,63,224,64
  41. 1006 data31,192,0,7,224,0,30,96
  42. 1007 data0,48,48,0,60,30,0,21
  43. 1008 data1,255,0,3,243,128,7,241
  44. 1009 data192,7,255,206,7,255,250,7
  45. 1010 data255,254,99,255,128,17,243,252
  46. 1011 data16,112,0,32,120,0,65,248
  47. 1012 data0,135,248,0,143,252,0,79
  48. 1013 data252,0,111,246,0,63,226,0
  49. 1014 data31,194,0,7,192,0,3,128
  50. 1015 data0,7,0,0,15,224,0,21
  51. 1016 data0,127,0,1,249,199,3,248
  52. 1017 data253,3,255,255,3,255,240,3
  53. 1018 data255,224,17,255,192,16,247,128
  54. 1019 data32,115,128,32,113,128,65,248
  55. 1020 data192,71,248,96,79,252,0,111
  56. 1021 data246,0,111,243,128,63,224,64
  57. 1022 data31,192,0,7,224,0,30,96
  58. 1023 data0,48,048,0,60,30,0
  59. 2000 dataknight,maiden,king,queen,prince,sword,zebra,vise,peasant,knave
  60. 2005 datalance,bucket,quilt,flagon,wizard,bird,hut,bridge,pike,man
  61. 2010 datahex,child,river,chest,gold,silver,coin,castle,tunic,spear
  62. 2015 datapath,mail,joker,helmet,flask,beast,animal,maze,bay,lord
  63. 2020 datatorch,table,chair,stable,horse,bishop,jester,crown,game,book
  64. 2025 datayeoman,xebec,gorge,pit,shield,armour,thief,yam,cook,shoe
  65. 2030 dataliver,mallet,cart,tax,ravine,quail,bow,arrow,hen,fire
  66. 2035 datababy,wine,jewel,dungeon,knife,serf,cross,damsel,quiver,haze
  67. 2040 dataviper,lion,dog,candle,wolf,ship,log,grate,nut,cannon
  68. 2045 dataquarry,ibex,key,kid,bazaar,cloak,gem,lantern,stag,scarf
  69.